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This Technical Note presents a new version of the Apple II Family Identification Routine, a 
sample piece of code which shows how to identify various Apple II computers and their memory 
configurations. 

Changes since November 1988: Converted the identification routine from Apple II 
Assembler/Editor (EDASM) source code to Apple IIgs Programmer's Workshop (APW) 
Assembler source code. Added the Apple He Card for the Macintosh LC to the identification 
routine's lookup table and memory check routine. Made minor corrections to text. 



Why Identiflcation Routines? 

Although we present the Apple II family identification bytes in Apple II Miscellaneous 
Technical Note #7, many people would prefer a routine they can simply plug into their own 
program and call. In addition, this routine serves as a small piece of sample code, and there is no 
reason for you to reinvent the wheel. 

Most of the interesting part of the routine consists of identifying the memory configuration of the 
machine. On an Apple He, the routine moves code into the zero page to test for the presence of 
auxiliary memory. (A He with a non-extended 80-column card is a configuration still found in 
many schools throughout the country.) 

The actual identification is done by a table-lookup method. 
What the Routine Returns 

This version (2.2) of the identification routine returns several things: 

• A machine byte, containing one of seven values: 
$00 = Unknown machine 
$01 = Apple ][ 
$02 = Apple ][+ 

$03 = Apple /// in emulation mode 
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$04 = Apple He 
$05 = Apple lie 
I $06 = Apple He Card for the Macintosh LC 

In addition, if the high bit of the byte is set, the machine is a IlGS or equivalent. 
For all current Apple IlGS computers, the value returned in machine is $84 (high 
bit set to signify Apple IlGS and $04 because it matches the ID bytes of an 

enhanced Apple He). 

• A ROMlevel byte, indicating the revision of the firmware in the machine. For 
example, there are currently five revisions of the lie, two of the He (unenhanced 
and enhanced), and three versions of the IlGS ROM (there will always be some 
owners who have not yet upgraded from ROM 00 to ROM 01). These versions 
are identified starting at $01 for the earliest. Therefore, the current lie will return 
ROMlevel = $05, the current IlGS will return ROMlevel = $03, etc. The 
routine will also return correct values for future versions of the IlGS, as a 
convention has been established for future ROM versions of that machine. 

• A memory byte, containing the amount of memory in the machine. This byte 
only has four values— (undefined), 48, 64, and 128. Extra memory in an Apple 
IlGS, or extra memory in an Apple He or lie Memory Expansion card, is not 
included. Programs must take special considerations to use that memory (if 
available), beyond those considerations required to use the normal 128K of 
today's He and lie. 

• If running on an Apple IlGS, three word-length fields are also returned. These are 
the contents of the registers as returned by the ID routine in the IlGS ROM, and 
they indicate several things about the machine. See Apple II Miscellaneous 
Technical Note #7 for more details. 

In addition to these features, most of the addressing done in the routine is by label. If you wish 
things to be stored in different places, simply changing the labels will often do it. 



Limitations and Improvements 

As sample code, you might have already guessed that this is not the most compact, efficient way 
of identifying these machines. Some improvements you might incorporate if using these routines 
include: 

• If you are running under ProDOS, you can remove the section that determines 
how much memory is in the machine (starting at exit, line 127), since the 
MACHID byte (at $BF98) in ProDOS already contains this information for you. 
This change would cut the routine down to less than one page of memory. 

• If you know the ROM is switched in when you call the routine, you can remove 
the sections which save and restore the language card state. Be careful in doing 
so, however, because the memory-determination routines switch out the ROM to 
see if a language card exists. 
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• If you need to know if a He is a 64K machine with a non-extended 80-column 
card, you may put your own identifying routines in after line 284. NoAux is only 
reached if there is an 80-column card but only 64K of memory. 
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How It Works 

The identification routine does the following things: 

• Disables interrupts 

• Saves four bytes from the language card areas so they may be restored later 

• Identifies all machines by a table look-up procedure 

• Calls 16-bit ID routine to distinguish IlGS from other machines of any kind, and returns 
values in appropriate locations if IlGS ID routine returns any useful information in the 
registers 

• Identifies memory configuration: 

• If Apple /// emulation, there is 48K 

• If Apple ][ or ][+, tests for presence of language card and returns 64K if present, 
otherwise, returns 48K 

• If Apple lie or IlGS, returns 128K 

• If Apple He, tries to identify auxiliary memory 

• If reading auxiliary memory, it must be there 

• If reading alternate zero page, auxiliary memory is present 

• If none of this is conclusive: 

• Exchanges a section of the zero page with a section of code that switches 
memory banks. The code executes in the zero page and does not get switched 
out when we attempt to switch in the auxiliary RAM. 

• Jumps to relocated code on page zero: 

• Switches in auxiliary memory for reading and writing 

• Stores a value at $800 and sees if the same value appears at $C00. If so, 
no auxiliary memory is present (the non-extended 80-column card has 
sparse memory mapping which causes $800 and $C00 to be the same 
location). 

• Changes value at $C00 and sees if the value at $800 changes as well. If 
so, no auxiliary memory. If not, then there is 128K available 

• Switches main memory back in for reading and writing 

• Puts the zero page back like we found it 

• Returns memory configuration found (either 64K or 128K) 

• Restores language card and ROM state from four saved bytes 

• Restores interrupt status 

• Returns to caller 
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keep ID2.2 

list on 

org $2000 

longa off 
longi off 

********************************************* 



Apple II Family Identification Program 
Version 2.2 
March, 1990 



* Includes support for the Apple lie Card * 

* for the Macintosh LC. * 

* * 
********************************************* 



; First, 


some 


global 


PROGRAM 


start 


Ilplain 


equ 


$01 


IIplus 


equ 


$02 


Illem 


equ 


$03 


He 


equ 


$04 


He 


equ 


$05 


lleCard 


equ 


$06 


safe 


equ 


$0001 


location 


equ 


$06 


testl 


equ 


$AA 


test2 


equ 


$55 


tests 


equ 


$88 


test4 


equ 


$EE 


begpagel 


equ 


$400 


begpage2 


equ 


$800 


begsprse 


equ 


$C00 


clrSOcol 


equ 


$C000 


setSOcol 


equ 


$C001 


rdmainram 


equ 


$C002 


rdcardram 


equ 


$C003 


wrmainram 


equ 


$C004 


wrcardram 


equ 


$C005 


rdramrd 


equ 


$C013 


rdaltzp 


equ 


$C016 


rdSOcol 


equ 


$C018 


rdtext 


equ 


$C01A 


rdpage2 


equ 


$C01C 


txtclr 


equ 


$C050 


txtset 


equ 


$C051 


txtpagel 


equ 


$C054 


txtpage2 


equ 


$C055 


ramin 


equ 


$C080 


romin 


equ 


$C081 


Icbankl 


equ 


$C08B 


Icl 


equ 


$E000 



; Apple II 

;Apple 11+ 

; Apple /// in emulation mode 

;Apple He 

;Apple He 

;Apple He Card for the Macintosh LC 

; start of code relocated to zp 
; zero page location to use 

;test byte #1 
;lsr of testl 
;test byte #3 
;test byte #4 

; beginning of text page 1 
; beginning of text page 2 
;byte after text page 2 

disable 80-column store 

enable 80-column store 

read main ram 

read aux ram 

write main ram 

write aux ram 

are we reading aux ram? 

are we reading aux zero page? 

are we using 80-columns? 

read if text is displayed 

read if page 2 is displayed 

switch in graphics 

switch in text 

switch in page 1 

switch in page 2 

read LC bank 2 , write protected 

read ROM, 2 reads write enable LC 

LC bank 1 enable 

; bytes to save for LC 
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lc2 
lc3 
lc4 



equ $D000 
equ $D400 
equ $D800 



idroutine equ $FE1F 



; save/restore routine 



;IIgs id routine 



Start by saving the state of the language card banks and 
by switching in main ROM. 



strt 



IdStart 



loop 



loop2 



loops 



matched 



php 




;save the processor state 


sei 




; before disabling interrupts 


Ida 


Icl 


; save four bytes from 


sta 


save 


; ROM/RAM area for later 


Ida 


lc2 


; restoring of RAM/ROM 


sta 


save+1 


;to original condition 


Ida 


lc3 




sta 


save+2 




Ida 


lc4 




sta 


save+3 




Ida 


$C081 


;read ROM 


Ida 


$C081 




Ida 


#0 


7 start by assuming unknown machine 


sta 


machine 




sta 


romlevel 




Ida 


location 


; save zero page locations 


sta 


save+4 


; for later restoration 


Ida 


location+1 




sta 


save+5 




Ida 


#$FB 


;all ID bytes are in page $FB 


sta 


location+1 


; save in zero page as high byte 


Idx 


#0 


; init pointer to start of ID table 


Ida 


IDTable , X 


; get the machine we are testing for 


sta 


machine 


;and save it 


Ida 


IDTable+l,x 


; get the ROM level we are testing for 


sta 


romlevel 


; and save it 


ora 


machine 


r are both zero? 


beq 


matched 


J yes — at end of list — leave 


inx 




7 bump index to loc/byte pair to test 


inx 






Ida 


IDTable, X 


;get the byte that should be in ROM 


beq 


matched 


;if zero, we're at end of list 


sta 


location 


; save in zero page 


Idy 


#0 


;init index for indirect addressing 


Ida 


IDTable+l,x 


; get the byte that should be in ROM 


cmp 


(Location) ,y 


;is it there? 


beq 


loop2 


;yes, so keep on looping 


inx 




;we didn't match. Scoot to the end of 


inx 




;line in the ID table so we can start 


Ida 


IDTable, X 


; checking for another machine 


bne 


loops 




inx 




; point to start of next line 


bne 


loop 


; should always be taken 



anop 



Here we check the 16-bit ID routine at idroutine ($FE1F), 
returns with carry clear, we call it again in 16-bit 
mode to provide more information on the machine. 



If it 



idligs sec 

jsr idroutine 
bcc idllgs2 



; set the carry bit 
;Apple Ilgs ID Routine 
;it's a Ilgs or equivalent 
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idllgs2 



idllgs3 



IlgsOut 



jmp IlgsOut 
Ida machine 
or a #$80 
sta machine 

clc 
xce 
php 

rep #$30 
longa on 
longi on 
jsr idroutine 
sta IlgsA 
stx IlgsX 
sty IlgsY 
pip 
xce 

longa off 
longi off 

Idy IlgsY 
cpy #$02 
bcs idllgsS 
iny 

sty romlevel 
cpy #$01 
bne IlgsOut 
Ida IIgsY+1 
bne IlgsOut 
Ida #$7F 
sta IlgsA 
anop 



;nope, go check memory 
; get the value for machine 
;and set the high bit 
;put it back 

; get ready to switch into native mode 

;save the processor status 
;sets 16-bit registers 



call the ID routine again 

16-bit store I 

16-bit store! 

16-bit store! 

restores 8-bit registers 

switches back to whatever it was before 



; get the ROM vers number ( starts at ) 

;is it ROM 01 or 00? 

;if not, don't increment 

;bump it up for romlevel 

; and put it there 

;is it the first ROM? 

;no, go on with things 

; check the other byte too 

;nope, it's a Ilgs successor 

;fix faulty ROM 00 on the Ilgs 



****************************************** 

* This part of the code checks for the * 

* memory configuration of the machine. * 

* If it's a Ilgs, we've already stored * 

* the total memory from above. If it's * 

* a lie or a lie Card, we know it's * 

* 128K; if it's a ][+, we know it's at * 

* least 48K and maybe 64K. We won't * 

* check for less than 48K, since that's * 

* a really rare circumstance. * 
****************************************** 



exit 


Ida 


machine 


;get the machine kind 




bmi 


exitl28 


;it's a 16-bit machine (has 128K) 




cmp 


#IIc 


;is it a lie? 




beq 


exitl28 


;yup, it's got 128K 




cmp 


#lleCard 


;is it a lie Card? 




beq 


exitl28 


;yes, it's got 128K 




cmp 


#IIe 


;is it a lie? 




bne 


contexit 


;yes, go muck with aux memory 




jmp 


muckaux 




contexit 


cmp 


#IIIem 


;is it a /// in emulation? 




bne 


exitll 


; nope , it's a ] [ or ] [ + 




Ida 


#48 


;/// emulation has 4 8K 




jmp 


exita 




exitl28 


Ida 


#128 


;128K 


exita 


sta 


memory 




exitl 


Ida 


Icl 


;time to restore the LC 




cmp 


save 


;if all 4 bytes are the same 




bne 


exit2 


;then LC was never on so 




Ida 


lc2 


;do nothing 




cmp 


save+1 






bne 


exit2 






Ida 


lc3 
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exit2 



exits 



exit4 



exits 



exit6 



exitll 



noLC 



muckaux 



muckl 



cmp 


save+2 


bne 


exit2 


Ida 


lc4 


cmp 


save+3 


beq 


exit6 


Ida 


$C088 


Ida 


Icl 


cmp 


save 


beq 


exits 


Ida 


$C080 


iniD 

J c 


exit6 


Ida 


lc2 


cmp 


save+1 


bea 


exit4 


Ida 


$C080 


iniD 


exits 


Ida 


IcS 


cmp 


save+2 


bea 


exits 


Ida 


$C080 


imo 
j-"'f 


exit6 


Ida 


lc4 


cmp 


save+3 


beq 


exits 


Ida 


$C080 


pip 




Ida 


save+4 


sta 


location 


Ida 


save+S 


sta 


location+1 


rts 




Ida 


Icbankl 


Ida 


Icbankl 


Idx 


lc2 


Ida 


#testl 


sta 


lc2 


eor 


lc2 


bne 


noLC 


Isr 


lc2 


Ida 


#test2 


eor 


lc2 


bne 


noLC 


stx 


lc2 


Ida 


#64 


imD 


exita 


Ida 


#4 8 


imp 


exita 


Idx 


rdtext 


Ida 


rdpage2 


asl 


A 


Ida 


#test3 


bit 


rd80col 


sta 


set80col 


php 




sta 


txtpage2 


sta 


txtset 


Idy 


begpagel 


sta 


i— y f-' tA ^ A. 


Ida 


begpagel 


sty 


begpagel 


pip 




bcs 


muck2 


sta 


txtpagel 


bmi 


muck2 



;no match! so turn first LC 
;bank on and check 



;if all locations check 
;then do more more else 
;turn on bank 2 

; check second byte in bank 1 



; select bank 2 

; check third byte in bank 1 



; select bank 2 

; restore interrupt status 

;put zero page back 

; like we found it 

; and go home . 

; force in language card 
;bank 1 

;save the byte there 

;use this as a test byte 

;if the same, should return zero 

; check twice just to be sure 
;this is the shifted value 
; here's the second check 

;put it back! 

; there's 64K here 

;no restore - no LC! 
; and get out of here 

; remember graphics in X 

; remember current video display 

;in the carry bit 

; another test character 

; remember video mode in N 

; enable 80-column store 

;save N and C flags 

; set page two 

;set text 

;save first character 

;and replace it with test character 

;get it back 

; and put back what was there 

; stay in page 2 
; restore page 1 
;stay in 80-columns 
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sta 


$cOOO 


;turn off 80-columns 


muck2 


tay 




; save returned character 




txa 




;get graphics/text setting 




bmi 


mucks 






sta 


txtclr 


;turn graphics back on 


mucks 


cpy 


#test3 


; finally compare it 




bne 


nocard 


;no 80-column card! 




Ida 


rdramrd 


; is aux memory being read? 




bmi 


muckl28 


;yup, there's 128K! 




Ida 


rdaltzp 


;is aux zero page used? 




bmi 


muckl28 


;yup! 




Idy 


#done- start 




move 


Idx 


start-1 ,y 


; swap section of zero page 




Ida 


1 safe-1 ,y 


;code needing safe location during 




stx 


saf e-1 ,y 


; reading of aux mem 




sta 


start-1, Y 






dey 








bne 


move 






jmp 


1 safe 


;jump to safe ground 


back 


php 




; save status 




Idy 


#done-start 


;move zero page back 


move 2 


Ida 


start-1 ,y 






sta 


1 safe-1 ,y 






dey 








bne 


move 2 






pla 








bcs 


noaux 




isaux 


jmp 


muckl28 


; there is 128K 


* You can 


put 


your own routine at "noaux" if you wish to 


* distinguish 


between 64K 


without an 80-column card and 


* 64K with an 


80-column card. 


noaux 


anop 




nocard 


Ida 


#64 


;only 64K 




jmp 


exita 




muckl28 


jmp 


exitl28 


; there's 128K 


* This is 


the 


routine run 


in the safe area not affected 


* by bank- 


-switching the main and aux RAM. 


start 


Ida 


#test4 


;yet another test byte 




sta 


wrcardram 


;write to aux while on main zero page 




sta 


rdcardram 


;read aux ram as well 




sta 


begpage2 


; check for sparse memory mapping 




Ida 


begsprse 


;if sparse, these will be the same 




cmp 


#test4 


; value since they're IK apart 




bne 


auxmem 


;yup, there's 128K! 




asl 


begsprse 


;may have been lucky so we'll 




Ida 


begpage2 


; change the value and see what happens 




cmp 


begsprse 






bne 


auxmem 






sec 




;oops, no auxiliary memory 




bcs 


goback 




auxmem 


clc 






goback 


sta 


wrmainram 


; write main RAM 




sta 


rdmainram 


;read main RAM 




jmp 


back 


; continue with program in main mem 


done 


nop 




;end of relocated program marker 


* The storage 


locations for the returned machine ID: 


machine 


ds 


1 


;the type of Apple II 


romlevel 


ds 


1 


; which revision of the machine 


memory 


ds 


1 


;how much memory (up to 128K) 



Apple II Miscellaneous 

#2: Apple II Family Identification Routines 2.2 



9 of 9 



Apple II Technical Notes 



IlgsA ds 2 ; 16-bit field 

IlgsX ds 2 ; 16-bit field 

IlgsY ds 2 ; 16-bit field 

save ds 6 ;six bytes for saved data 

IDTable dc II '1,1' ;Apple ][ 

dc H'B3 38 00' 

dc II '2,1' ; Apple ][+ 

dc H'B3 EA IE AD 00' 

dc II '3,1' ; Apple /// (emulation) 

dc H'B3 EA IE 8A 00' 

dc II '4,1' ; Apple lie (original) 

dc H ' B3 06 CO EA 00 ' 

Note: You must check for the Apple lie Card BEFORE you 
check for the enhanced Apple lie since the first 
two identification bytes are the same. 

dc II '6,1' ; Apple lie Card for the Macintosh LC (1st release) 

dc H'B3 06 CO EO DD 02 BE 00 00' 

dc II '4,2' ;Apple lie (enhanced) 

dc H'B3 06 CO EO 00' 

dc Il'5,l' ;Apple lie (original) 

dc H'B3 06 CO 00 BF FF 00' 

dc II '5,2' ; Apple lie (3.5 ROM) 

dc H'B3 06 CO 00 BF 00 00' 

dc II '5, 3' ;Apple lie (Mem. Exp) 

dc H'B3 06 CO 00 BF 03 00' 

dc II '5, 4' ;Apple lie (Rev. Mem. Exp.) 

dc H'B3 06 CO 00 BF 04 00' 

dc II '5,5' ; Apple He Plus 

dc H'B3 06 CO 00 BF 05 00' 

dc II '0,0' ;end of table 

end 



Further Reference 

• Apple II Miscellaneous Technical Note #7, Apple II Family Identification 
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